home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
comm2
/
pb125_1.zip
/
QUES.LZH
/
QS
Wrap
Text File
|
1993-05-24
|
2KB
|
50 lines
QUEST1QUEßSay ( Visiting Sysop's Questionnaire at %BBS% )
Say (---------------------------------------------------------------------)
Say ()
AppendTo (ques\quest1.ans, )
AppendTo (ques\quest1.ans,/:NAME/ answering questionaire at %TIME% on %DATE%)
AppendTo (ques\quest1.ans,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - )
YesNoAsk (Would you like to answer this questionaire? *)
If (%Resp%)=(No) then Return
Ask (What is the name of your BBS?)
AppendTo (ques\quest1.ans,Q1: Name: %Resp%)
Ask (Who are the sysops of this BBS?)
AppendTo (ques\quest1.ans,Q2: Sysops: %Resp%)
YesNoAsk (Are you running the Powerboard BBS software? )
If (%Resp%)=(Yes) then Goto (PB)
Ask (Which BBS software package are you currently using?)
AppendTo (ques\quest1.ans,Q3: Using: %Resp%)
Ask (Would you consider running Powerboard? Reasons?)
AppendTo (ques\quest1.ans,Q3: Consider running PB?: %Resp%)
*RestOfQuest
Ask (How many files do you currently have online?)
AppendTo (ques\quest1.ans,Q4: %Resp%)
YesNoAsk (Would you like visiting Sysop's access here? *)
If (%Resp%)=(No) then Goto (EndOfQuest)
log(--,Requested Visiting Sysop Access)
AppendTo (ques\quest1.ans,Q5: Wants Visiting Sysop Access)
Goto (EndOfQuest)
*PB
Say(Wise choice. We hope you are enjoying the software as much as we are!)
Say ()
AppendTo (ques\quest1.ans,Q3:Using Powerboard BBS software)
Goto (RestOfQuest)
*EndOfQuest
Log (--,User answered Questionaire #1)
Return